(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[     15665,        599]
NotebookOptionsPosition[     11045,        434]
NotebookOutlinePosition[     11662,        458]
CellTagsIndexPosition[     11583,        453]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[TextData[{
 "New in: ",
 Cell["0.0", "HistoryData",
  CellTags->"New"],
 " | Modified in: ",
 Cell[" ", "HistoryData",
  CellTags->"Modified"],
 " | Obsolete in: ",
 Cell[" ", "HistoryData",
  CellTags->"Obsolete"],
 " | Excised in: ",
 Cell[" ", "HistoryData",
  CellTags->"Excised"]
}], "History",
 CellID->1247902091],

Cell[CellGroupData[{

Cell["Categorization", "CategorizationSection",
 CellID->1122911449],

Cell["Symbol", "Categorization",
 CellLabel->"Entity Type",
 CellID->686433507],

Cell["MathMR", "Categorization",
 CellLabel->"Paclet Name",
 CellID->605800465],

Cell["MathMR`", "Categorization",
 CellLabel->"Context",
 CellID->468444828],

Cell["MathMR/ref/MagBFrame", "Categorization",
 CellLabel->"URI"]
}, Closed]],

Cell[CellGroupData[{

Cell["Keywords", "KeywordsSection",
 CellID->477174294],

Cell["XXXX", "Keywords",
 CellID->1164421360]
}, Closed]],

Cell[CellGroupData[{

Cell["Syntax Templates", "TemplatesSection",
 CellID->1872225408],

Cell[BoxData[""], "Template",
 CellLabel->"Additional Function Template",
 CellID->1562036412],

Cell[BoxData[""], "Template",
 CellLabel->"Arguments Pattern",
 CellID->158391909],

Cell[BoxData[""], "Template",
 CellLabel->"Local Variables",
 CellID->1360575930],

Cell[BoxData[""], "Template",
 CellLabel->"Color Equal Signs",
 CellID->793782254]
}, Closed]],

Cell[CellGroupData[{

Cell["Details", "DetailsSection",
 CellID->307771771],

Cell["XXXX", "Details",
 CellLabel->"Lead",
 CellID->670882175],

Cell["XXXX", "Details",
 CellLabel->"Developers",
 CellID->350963985],

Cell["XXXX", "Details",
 CellLabel->"Authors",
 CellID->8391405],

Cell["XXXX", "Details",
 CellLabel->"Feature Name",
 CellID->3610269],

Cell["XXXX", "Details",
 CellLabel->"QA",
 CellID->401364205],

Cell["XXXX", "Details",
 CellLabel->"DA",
 CellID->350204745],

Cell["XXXX", "Details",
 CellLabel->"Docs",
 CellID->732958810],

Cell["XXXX", "Details",
 CellLabel->"Features Page Notes",
 CellID->222905350],

Cell["XXXX", "Details",
 CellLabel->"Comments",
 CellID->240026365]
}, Closed]],

Cell[CellGroupData[{

Cell["MagBFrame", "ObjectName",
 CellID->1224892054],

Cell[TextData[{
 Cell["   ", "ModInfo"],
 Cell[BoxData[
  RowBox[{"MagBFrame", "[", 
   RowBox[{"theta_", ",", "phi_"}], "]"}]], "InlineFormula"],
 " \[LineSeparator]calculate the frame defined by the magnetic field direction"
}], "Usage",
 CellChangeTimes->{{3.498693977742381*^9, 3.498693994442326*^9}},
 CellID->982511436],

Cell["z axis is defined along the magnetic field direction", "Notes",
 CellChangeTimes->{{3.498694005778483*^9, 3.498694017482953*^9}},
 CellID->1067943069],

Cell["\<\
y axis is obtained from the intrinsic $Zdir by Corss[$Zdir, z]\
\>", "Notes",
 CellChangeTimes->{{3.498694018081146*^9, 3.498694074838607*^9}},
 CellID->1993061028],

Cell["x axis is obtained by Cross[y, z]", "Notes",
 CellChangeTimes->{{3.498694052671419*^9, 3.498694081678244*^9}},
 CellID->1985596272]
}, Open  ]],

Cell[CellGroupData[{

Cell["Tutorials", "TutorialsSection",
 CellID->250839057],

Cell["XXXX", "Tutorials",
 CellID->341631938]
}, Open  ]],

Cell[CellGroupData[{

Cell["Related Demonstrations", "RelatedDemonstrationsSection",
 CellID->1268215905],

Cell["XXXX", "RelatedDemonstrations",
 CellID->1129518860]
}, Open  ]],

Cell[CellGroupData[{

Cell["Related Links", "RelatedLinksSection",
 CellID->1584193535],

Cell["XXXX", "RelatedLinks",
 CellID->1038487239]
}, Open  ]],

Cell[CellGroupData[{

Cell["See Also", "SeeAlsoSection",
 CellID->1255426704],

Cell[TextData[ButtonBox["MagneticBDirection",
 BaseStyle->"Link",
 ButtonData->"paclet:MathMR/ref/MagneticBDirection"]], "SeeAlso",
 CellChangeTimes->{{3.498694523547888*^9, 3.498694526206389*^9}},
 CellID->929782353]
}, Open  ]],

Cell[CellGroupData[{

Cell["More About", "MoreAboutSection",
 CellID->38303248],

Cell["XXXX", "MoreAbout",
 CellID->1665078683]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[GridBox[{
    {
     StyleBox["Examples", "PrimaryExamplesSection"], 
     ButtonBox[
      RowBox[{
       RowBox[{"More", " ", "Examples"}], " ", "\[RightTriangle]"}],
      BaseStyle->"ExtendedExamplesLink",
      ButtonData:>"ExtendedExamples"]}
   }],
  $Line = 0; Null]], "PrimaryExamplesSection",
 CellID->880084151],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Intrinsic", " ", "$Zdir", " ", "is", " ", 
    RowBox[{"the", " ", "[", "111", "]"}], " ", "direction"}], "*)"}], 
  "\[IndentingNewLine]", "$Zdir"}]], "Input",
 CellChangeTimes->{{3.498694093608384*^9, 3.498694111587668*^9}},
 CellLabel->"In[45]:=",
 CellID->1437709428],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   FractionBox["1", 
    SqrtBox["3"]], ",", 
   FractionBox["1", 
    SqrtBox["3"]], ",", 
   FractionBox["1", 
    SqrtBox["3"]]}], "}"}]], "Output",
 CellChangeTimes->{3.498694094934801*^9},
 CellLabel->"Out[45]=",
 CellID->709345158]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"exampleBframe", "=", 
  RowBox[{"MagBFrame", "[", 
   RowBox[{
    RowBox[{"30.", "Degree"}], ",", 
    RowBox[{"10", "Degree"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.498694537013267*^9, 3.498694548382545*^9}, {
  3.498694596613365*^9, 3.498694632155421*^9}},
 CellLabel->"In[61]:=",
 CellID->1278572032],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0.375787889793862`", ",", 
     RowBox[{"-", "0.8303503550145146`"}], ",", 
     RowBox[{"-", "0.4114629385637855`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.27925827763381933`", ",", "0.524833885571765`", ",", 
     RowBox[{"-", "0.8040921632055844`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "0.8836279059973542`", ",", "0.1872636656773355`", ",", 
     "0.42910842832531065`"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.498694545584835*^9, 3.498694549084182*^9}, {
  3.498694604363591*^9, 3.49869463253083*^9}},
 CellLabel->"Out[61]=",
 CellID->637067174]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Graphics3D", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{"Arrow", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "#"}], "}"}], "]"}],
        "&"}], "/@", 
      RowBox[{"{", 
       RowBox[{"$Xdir", ",", " ", "$Ydir", ",", " ", "$Zdir"}], "}"}]}], 
     "}"}], "~", "Join", "~", 
    RowBox[{"{", 
     RowBox[{"Dashed", ",", 
      RowBox[{
       RowBox[{
        RowBox[{"Arrow", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "#"}], "}"}], 
         "]"}], "&"}], "/@", "exampleBframe"}]}], "}"}]}], ",", 
   RowBox[{"Axes", "\[Rule]", "True"}], ",", 
   RowBox[{"Boxed", "\[Rule]", "False"}], ",", 
   RowBox[{"AxesStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Red", ",", "Green", ",", "Blue"}], "}"}]}], ",", 
   RowBox[{"AxesOrigin", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.498694575620716*^9, 3.49869461936743*^9}},
 CellLabel->"In[62]:=",
 CellID->383650039],

Cell[BoxData[
 Graphics3DBox[{{
    Arrow3DBox[
     NCache[{{0, 0, 0}, {2^Rational[-1, 2], -2^Rational[-1, 2], 0}}, {{0, 0, 
       0}, {0.7071067811865475, -0.7071067811865475, 0}}]], 
    Arrow3DBox[
     NCache[{{0, 0, 0}, {
       6^Rational[-1, 2], 6^Rational[-1, 2], -
        Rational[2, 3]^Rational[1, 2]}}, {{0, 0, 0}, {0.4082482904638631, 
       0.4082482904638631, -0.816496580927726}}]], 
    Arrow3DBox[
     NCache[{{0, 0, 0}, {
       3^Rational[-1, 2], 3^Rational[-1, 2], 3^Rational[-1, 2]}}, {{0, 0, 
       0}, {0.5773502691896258, 0.5773502691896258, 0.5773502691896258}}]]}, 
   {Dashing[{Small, Small}], 
    Arrow3DBox[{{0, 0, 0}, {
      0.375787889793862, -0.8303503550145146, -0.4114629385637855}}], 
    Arrow3DBox[{{0, 0, 0}, {0.27925827763381933`, 
      0.524833885571765, -0.8040921632055844}}], 
    Arrow3DBox[{{0, 0, 0}, {0.8836279059973542, 0.1872636656773355, 
      0.42910842832531065`}}]}},
  Axes->True,
  AxesOrigin->{0, 0, 0},
  AxesStyle->{
    RGBColor[1, 0, 0], 
    RGBColor[0, 1, 0], 
    RGBColor[0, 0, 1]},
  Boxed->False,
  ImageSize->{474., 514.4394402278606},
  PlotRange->{{-1, 1}, {-1, 1}, {-1, 1}},
  ViewPoint->{2.7013237490246156`, -2.0378506484714793`, 
   0.0038389425585334844`},
  ViewVertical->{0.4678635064919335, -0.3597172750693975, 
   0.8072838542357452}]], "Output",
 CellChangeTimes->{{3.498694619889675*^9, 3.498694633397548*^9}},
 CellLabel->"Out[62]=",
 CellID->855357411]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["More Examples", "ExtendedExamplesSection",
 CellTags->"ExtendedExamples",
 CellID->1854448968],

Cell[BoxData[
 InterpretationBox[Cell["Scope", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1293636265],

Cell[BoxData[
 InterpretationBox[Cell["Generalizations & Extensions", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1020263627],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell["Options", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->2061341341],

Cell[BoxData[
 InterpretationBox[Cell["XXXX", "ExampleSubsection"],
  $Line = 0; Null]], "ExampleSubsection",
 CellID->1757724783],

Cell[BoxData[
 InterpretationBox[Cell["XXXX", "ExampleSubsection"],
  $Line = 0; Null]], "ExampleSubsection",
 CellID->1295379749]
}, Closed]],

Cell[BoxData[
 InterpretationBox[Cell["Applications", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->258228157],

Cell[BoxData[
 InterpretationBox[Cell["Properties & Relations", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->2123667759],

Cell[BoxData[
 InterpretationBox[Cell["Possible Issues", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1305812373],

Cell[BoxData[
 InterpretationBox[Cell["Interactive Examples", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1653164318],

Cell[BoxData[
 InterpretationBox[Cell["Neat Examples", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->589267740]
}, Open  ]]
},
WindowSize->{700, 770},
WindowMargins->{{Automatic, 180}, {Automatic, 43}},
CellContext->"Global`",
FrontEndVersion->"7.0 for Linux x86 (32-bit) (February 25, 2009)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "FunctionPageStyles.nb", 
  CharacterEncoding -> "iso8859-1"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "ExtendedExamples"->{
  Cell[9525, 376, 100, 2, 56, "ExtendedExamplesSection",
   CellTags->"ExtendedExamples",
   CellID->1854448968]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"ExtendedExamples", 11445, 446}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[545, 20, 325, 14, 26, "History",
 CellID->1247902091],
Cell[CellGroupData[{
Cell[895, 38, 68, 1, 30, "CategorizationSection",
 CellID->1122911449],
Cell[966, 41, 79, 2, 70, "Categorization",
 CellID->686433507],
Cell[1048, 45, 79, 2, 70, "Categorization",
 CellID->605800465],
Cell[1130, 49, 76, 2, 70, "Categorization",
 CellID->468444828],
Cell[1209, 53, 65, 1, 70, "Categorization"]
}, Closed]],
Cell[CellGroupData[{
Cell[1311, 59, 55, 1, 20, "KeywordsSection",
 CellID->477174294],
Cell[1369, 62, 45, 1, 70, "Keywords",
 CellID->1164421360]
}, Closed]],
Cell[CellGroupData[{
Cell[1451, 68, 65, 1, 20, "TemplatesSection",
 CellID->1872225408],
Cell[1519, 71, 94, 2, 70, "Template",
 CellID->1562036412],
Cell[1616, 75, 82, 2, 70, "Template",
 CellID->158391909],
Cell[1701, 79, 81, 2, 70, "Template",
 CellID->1360575930],
Cell[1785, 83, 82, 2, 70, "Template",
 CellID->793782254]
}, Closed]],
Cell[CellGroupData[{
Cell[1904, 90, 53, 1, 20, "DetailsSection",
 CellID->307771771],
Cell[1960, 93, 63, 2, 70, "Details",
 CellID->670882175],
Cell[2026, 97, 69, 2, 70, "Details",
 CellID->350963985],
Cell[2098, 101, 64, 2, 70, "Details",
 CellID->8391405],
Cell[2165, 105, 69, 2, 70, "Details",
 CellID->3610269],
Cell[2237, 109, 61, 2, 70, "Details",
 CellID->401364205],
Cell[2301, 113, 61, 2, 70, "Details",
 CellID->350204745],
Cell[2365, 117, 63, 2, 70, "Details",
 CellID->732958810],
Cell[2431, 121, 78, 2, 70, "Details",
 CellID->222905350],
Cell[2512, 125, 67, 2, 70, "Details",
 CellID->240026365]
}, Closed]],
Cell[CellGroupData[{
Cell[2616, 132, 52, 1, 64, "ObjectName",
 CellID->1224892054],
Cell[2671, 135, 325, 8, 76, "Usage",
 CellID->982511436],
Cell[2999, 145, 156, 2, 26, "Notes",
 CellID->1067943069],
Cell[3158, 149, 174, 4, 26, "Notes",
 CellID->1993061028],
Cell[3335, 155, 137, 2, 26, "Notes",
 CellID->1985596272]
}, Open  ]],
Cell[CellGroupData[{
Cell[3509, 162, 57, 1, 44, "TutorialsSection",
 CellID->250839057],
Cell[3569, 165, 45, 1, 17, "Tutorials",
 CellID->341631938]
}, Open  ]],
Cell[CellGroupData[{
Cell[3651, 171, 83, 1, 31, "RelatedDemonstrationsSection",
 CellID->1268215905],
Cell[3737, 174, 58, 1, 17, "RelatedDemonstrations",
 CellID->1129518860]
}, Open  ]],
Cell[CellGroupData[{
Cell[3832, 180, 65, 1, 31, "RelatedLinksSection",
 CellID->1584193535],
Cell[3900, 183, 49, 1, 17, "RelatedLinks",
 CellID->1038487239]
}, Open  ]],
Cell[CellGroupData[{
Cell[3986, 189, 55, 1, 31, "SeeAlsoSection",
 CellID->1255426704],
Cell[4044, 192, 217, 4, 17, "SeeAlso",
 CellID->929782353]
}, Open  ]],
Cell[CellGroupData[{
Cell[4298, 201, 57, 1, 31, "MoreAboutSection",
 CellID->38303248],
Cell[4358, 204, 46, 1, 17, "MoreAbout",
 CellID->1665078683]
}, Open  ]],
Cell[CellGroupData[{
Cell[4441, 210, 356, 11, 68, "PrimaryExamplesSection",
 CellID->880084151],
Cell[CellGroupData[{
Cell[4822, 225, 324, 8, 51, "Input",
 CellID->1437709428],
Cell[5149, 235, 277, 11, 47, "Output",
 CellID->709345158]
}, Open  ]],
Cell[CellGroupData[{
Cell[5463, 251, 334, 9, 28, "Input",
 CellID->1278572032],
Cell[5800, 262, 654, 17, 47, "Output",
 CellID->637067174]
}, Open  ]],
Cell[CellGroupData[{
Cell[6491, 284, 1537, 48, 95, "Input",
 CellID->383650039],
Cell[8031, 334, 1445, 36, 524, "Output",
 CellID->855357411]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[9525, 376, 100, 2, 56, "ExtendedExamplesSection",
 CellTags->"ExtendedExamples",
 CellID->1854448968],
Cell[9628, 380, 125, 3, 34, "ExampleSection",
 CellID->1293636265],
Cell[9756, 385, 148, 3, 22, "ExampleSection",
 CellID->1020263627],
Cell[CellGroupData[{
Cell[9929, 392, 127, 3, 22, "ExampleSection",
 CellID->2061341341],
Cell[10059, 397, 130, 3, 70, "ExampleSubsection",
 CellID->1757724783],
Cell[10192, 402, 130, 3, 70, "ExampleSubsection",
 CellID->1295379749]
}, Closed]],
Cell[10337, 408, 131, 3, 22, "ExampleSection",
 CellID->258228157],
Cell[10471, 413, 142, 3, 22, "ExampleSection",
 CellID->2123667759],
Cell[10616, 418, 135, 3, 22, "ExampleSection",
 CellID->1305812373],
Cell[10754, 423, 140, 3, 22, "ExampleSection",
 CellID->1653164318],
Cell[10897, 428, 132, 3, 22, "ExampleSection",
 CellID->589267740]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
